home *** CD-ROM | disk | FTP | other *** search
/ Space & Astronomy / Space and Astronomy (October 1993).iso / pc / programs / mac / aplhyprc.hqx / Apollo 13 Hyper-Comic / card_18781.txt < prev    next >
Text File  |  1993-02-04  |  5KB  |  232 lines
  1. -- card: 18781 from stack: in
  2. -- bmap block id: 19119
  3. -- flags: 0000
  4. -- background id: 2714
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8000
  11. -- rect: left=475 top=306 right=336 bottom=504
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card id 3019 of stack "HOME CARD"
  23. end mouseUp
  24.  
  25.  
  26.  
  27.  
  28. -- part 7 (field)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=92 top=311 right=342 bottom=225
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 20
  36. -- text size: 10
  37. -- style flags: 0
  38. -- line height: 13
  39. -- part name: 
  40.  
  41.  
  42. -- part 8 (button)
  43. -- low flags: 00
  44. -- high flags: 8000
  45. -- rect: left=1 top=297 right=340 bottom=35
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: 
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   go to card id 2942 of stack "Education Stack"
  57. end mouseUp
  58.  
  59.  
  60.  
  61.  
  62. -- part 9 (button)
  63. -- low flags: 00
  64. -- high flags: 8003
  65. -- rect: left=7 top=2 right=24 bottom=107
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Comics Home
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   go to card id 20948
  77. end mouseUp
  78.  
  79.  
  80.  
  81.  
  82. -- part 10 (button)
  83. -- low flags: 00
  84. -- high flags: 8003
  85. -- rect: left=333 top=315 right=337 bottom=433
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: References
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   show card field info
  97. end mouseUp
  98.  
  99.  
  100.  
  101. -- part 11 (field)
  102. -- low flags: 81
  103. -- high flags: 0007
  104. -- rect: left=26 top=47 right=261 bottom=485
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 0
  108. -- font id: 20
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: info
  113. ----- HyperTalk script -----
  114. on mouseup
  115.   hide card field info
  116. end mouseup
  117.  
  118.  
  119. -- part 14 (button)
  120. -- low flags: 00
  121. -- high flags: 0000
  122. -- rect: left=183 top=8 right=20 bottom=205
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: globalfind
  131. ----- HyperTalk script -----
  132. on mouseup
  133.   repeat with y = 1 to 100
  134.     set cursor to busy
  135.     global t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15, t16,t17,t18,t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30, t31,t32,t33,t34,t35,t36,t37,t38,t39,t40,t41,t42,t43,t44
  136.     global t0, x, r,hat,straw,buff1,buff2,count1,count2, t45,t46,t47,t48,t49,t50,t51,t52,t53,t54,t55,t56,t57,t58,t59,t60
  137.     find whole t0
  138.     get the result
  139.     if count1>=3 and it is not empty then
  140.       put the number of this card into hat
  141.       put the foundchunk into buff1
  142.       show message box
  143.       exit mouseup
  144.     else
  145.       if it is not empty then
  146.         add 1 to count1
  147.         add 1 to x
  148.         put "t"&x into r
  149.         set lockscreen to true
  150.         go to "Apollo Missions Stack"
  151.         send "mouseup" to button "GlobalFind"
  152.       else
  153.         put the number of this card into hat
  154.         put the foundchunk into buff1
  155.         exit mouseup
  156.       end if
  157.     end if
  158.   end repeat
  159. end mouseup
  160. on enterkey
  161.   global t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15, t16,t17,t18,t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30, t31,t32,t33,t34,t35,t36,t37,t38,t39,t40,t41,t42,t43,t44
  162.   global t0,x,r,hat,straw,buff1,buff2,count1,count2,t45,t46,t47, t48,t49,t50,t51,t52,t53,t54,t55,t56,t57,t58,t59,t60
  163.   hide message box
  164.   find whole t0
  165.   put 0 into count1
  166.   put the number of this card into straw
  167.   put the foundchunk into buff2
  168.   if straw = hat and buff1 = buff2 then
  169.     add 1 to x
  170.     put "t"&x into r
  171.     set lockscreen to true
  172.     go to "Apollo Missions Stack"
  173.     send "mouseup" to button "GlobalFind"
  174.   end if
  175. end enterkey
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211. -- part contents for card part 7
  212. ----- text -----
  213.  
  214.          Apollo 13 Rescue
  215.  
  216. -- part contents for card part 11
  217. ----- text -----
  218.  
  219.                                                                    References
  220.  
  221. The Apollo 13 Hyper-Comic is adapted by Jerry Woodfill from actual events described in the following sources:
  222.  
  223. Cortright, Edgar M.  (1975)  APOLLO EXPEDITIONS TO THE MOON (NASA SP-350).
  224. Washington, D.C.:  Scientific and Technical Information Office (NASA), pp. 247-263.
  225.  
  226. Office of Public Affairs, National Aeronautics and Space Administration.  (1970) APOLLO 13: HOUSTON, WE'VE GOT A PROBLEM (NASA EP-76).  Washington, D.C.:   U.S. Government Printing Office, pp. 384-459.
  227.  
  228. Lyndon B. Johnson Space Center, National Aeronautics and Space Administration.  APOLLO 13:  A SUCCESSFUL FAILURE  (JSC MR-7).  
  229.  
  230.                                                         
  231.  
  232.